unit dgEditPart ;

interface

uses Windows,
   SysUtils,
   Classes,
   Graphics,
   Forms,
   Controls,
   StdCtrls,
   Buttons,
   ExtCtrls,
   TntStdCtrls,
   SpTBXEditors,
   SpTBXControls,
   TBXDkPanels,
   uObjects ;

type
   TdlgEditPart = class( TForm )
      Panel : TSpTBXPanel ;
      SpTBXButton1 : TSpTBXButton ;
      SpTBXButton2 : TSpTBXButton ;
      SpTBXGroupBox2 : TSpTBXGroupBox ;
      SpTBXGroupBox3 : TSpTBXGroupBox ;
      SpTBXGroupBox1 : TSpTBXGroupBox ;
      cbType : TSpTBXComboBox ;
      SpTBXComboBox1 : TSpTBXComboBox ;
      SpTBXComboBox2 : TSpTBXComboBox ;
      SpTBXButton3 : TSpTBXButton ;
      SpTBXButton4 : TSpTBXButton ;
      SpTBXButton5 : TSpTBXButton ;
      SpTBXButton6 : TSpTBXButton ;
      SpTBXButton7 : TSpTBXButton ;
      SpTBXButton8 : TSpTBXButton ;
   private
      FPart : TMedaPart ;
      procedure SetPart( const Value : TMedaPart ) ;
   public
      property Part : TMedaPart read FPart write SetPart ;
   end ;

implementation

{$R *.dfm}

{ TdlgEditPart }

procedure TdlgEditPart.SetPart( const Value : TMedaPart ) ;
begin
   FPart := Value ;
end ;

end.

